﻿<!--#include file="../../Inc/Const.Asp"-->
<%
Dim ID : ID = Request("ID")
If IsNumeric(ID) and len(ID) > 0 and len(ID) < 10 Then
	Dim Rs
	Set Rs = DB("Select [Diggs] From [{pre}Content] Where [ID]=" & ID,1)
	Response.Write "document.write(""" & Rs(0) & """);"
	Rs.Close: Conn.Close : Set Conn = Nothing 
Else
	Response.Write "document.write(""" & Request("def") & """);"
End If
%>